input font1base		% get the basis
proofing:=1;		% make a .gf file
vardef char.w =
	setwidth .74em;	% this from "average character width table" TSS
	pos1(1.5thickwidth,30);
	pos2(1.05thickwidth,10);
	pos21(thinwidth,10);
	pos3(thinwidth,30);
	pos31(thickwidth,30);	
	pos4(1.05thickwidth,10);
	pos41(thinwidth,10);
	pos5(1.5thinwidth,30);
	y1=xheight; x1l=.1em; x5r=w-.1em;	% some fixed points
	x2=.45[x1,x3]; x3=.5[x1,x5]; x4=.45[x3,x5];	% relating corners
	z21r=z2r; z31l=z3l; z41r=z4r;	% tie corners of strokes
	y31r=y1; y5=y1;		% the tops of the strokes
	y2=0; y4=y2;	% the baseline
	stroke(1,2,.1,.2,0);
	stroke(21,3,.2,.0,.2);
	stroke(31,4,.1,.2,.2);
	stroke(41,5,.9,.2,0);
	labelpos(1,2,3,4,5);
enddef;
vardef char.E =
	setwidth .63em;
	pos1(1.5thinwidth,45); pos2(1.25thinwidth,135);
	pos3(1.4thinwidth,90); pos4(.9thinwidth,90);
	pos5(1.5thinwidth,-45); pos6(1.25thinwidth,-135);
	pos7(thickwidth,0); pos8(thickwidth,0);
	x1=w-.1em; y1r=capheight; x2=.1em;	% fixed points
	y2r=y1r; x3=.95[x7,x1l]; y3=.55[y6,y2]; x4=x7; y4=y3;
	x5=x1; x6=x2; y5r=0; y6r=y5r;
	z7l=z6; z8l=z2;
	stroke(1,2,.1,.2,0); stroke(3,4,.1,.2,.2);
	stroke(5,6,.1,.2,0); stroke(7,8,.5,.15,.05);
enddef;
%
%
% Don, 
%	If you look at this, please don't pay too much attention to it...
%	As it turns out, after dredging up a copy of font1base, the version
%	Metafont available (-87) doesn't execute test. functions -- so I have
%	been totally unable to look at the S and I've no idea whether my
%	"tricks" will make anything other than a big mess!!
%
%	I'll try to get back in tomorrow to see if someone has fixed things up.
%
%				   Joey
%1984-5-26 21:50:00
%
vardef char.S =
	setwidth .56em;
	x1=w/2; y1=.505[0,capheight];	% the center of S
	x3=x2=x1;	% top and bottom also at center
	y3r=1.05capheight; y2l=0-.05capheight;	% centers slightly extended
	x4l=.1w; y4=2/3[y1,0]	% lower left
	x5r=.9w; y5=2/3[y1,capheight];	% upper right
	x6l=x5; y6=y4;	% center of lower curve
	x7r=x4; y7=y5	% center of top curve
% This character goes 5..3..7..1..6..2..4 (top to bottom)
	pos5(1.3thinwidth,45); pos3(thinwidth,90);
	pos7(1.1thinwidth,180); pos1(thickwidth,225);
	pos6(1.1thinwidth,180); pos2(thinwidht,90);
	pos4(1.3thinwidth,45);
	dz3=(-1,0);dz7=(0,-1);dz1=(3,-2);dz6=(0,-1);dz2=(-1,0);
	curve(1,3,7); curve(7,1,6); curve(6,2,4);
	labelpos(1,2,3,4,5,6,7);
enddef;		

pausing:=1;
%test.normal(char.S)
%test.normal(char.E);
%test.bold(char.E);
% test.boldx(char.E);
test.normal(char.w); % even this one doesn't work (sigh)
%test.bold(char.w);
%test.boldx(char.w);
pausing:=0;
end